home *** CD-ROM | disk | FTP | other *** search
/ Mighty Morphin Power Rangers Screensaver / Mighty Morphin Power Rangers Screensaver.iso / pc / setup.mst < prev    next >
Text File  |  1995-11-14  |  26KB  |  813 lines
  1. '**************************************************************************
  2. '*                       MSSetup Toolkit Sample 1
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. CONST APPHELP       = 900
  18. CONST MODULES       = 2500
  19. CONST BADPATH       = 6400
  20.  
  21.  
  22.  
  23. ''Bitmap ID
  24. CONST LOGO = 1
  25.  
  26. GLOBAL OLDMODULE1$
  27. GLOBAL OLDMODULE2$
  28. GLOBAL OLDMODULE3$
  29. GLOBAL OLDMODULE4$
  30. GLOBAL OLDMODULE5$
  31. GLOBAL OLDMODULE6$
  32. GLOBAL OLDMODULE7$
  33. GLOBAL OLDMODULE8$
  34. GLOBAL MODULE1$ 
  35. GLOBAL MODULE2$ 
  36. GLOBAL MODULE3$ 
  37. GLOBAL MODULE4$ 
  38. GLOBAL MODULE5$ 
  39. GLOBAL MODULE6$ 
  40. GLOBAL MODULE7$ 
  41. GLOBAL MODULE8$ 
  42.  
  43. GLOBAL MODULE1SIZE
  44. GLOBAL MODULE2SIZE
  45. GLOBAL MODULE3SIZE
  46. GLOBAL MODULE4SIZE
  47. GLOBAL MODULE5SIZE
  48. GLOBAL MODULE6SIZE
  49. GLOBAL MODULE7SIZE
  50. GLOBAL MODULE8SIZE
  51.  
  52. GLOBAL DEST$        ''Default destination directory.
  53. GLOBAL WINDIR$
  54. GLOBAL TEST$
  55.  
  56. DECLARE SUB Install
  57. DECLARE SUB DeleteFiles (Module%) 
  58. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  59.  
  60.  
  61. INIT:
  62.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  63.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  64.  
  65.     OLDMODULE1$ = "OFF"
  66.     OLDMODULE2$ = "OFF"
  67.     OLDMODULE3$ = "OFF"
  68.     OLDMODULE4$ = "OFF"
  69.     OLDMODULE5$ = "OFF"
  70.     OLDMODULE6$ = "OFF"
  71.     OLDMODULE7$ = "OFF"
  72.     OLDMODULE8$ = "OFF"
  73.  
  74.     MODULE1SIZE   = 5240258
  75.     MODULE2SIZE   = 5240794
  76.     MODULE3SIZE   = 4978546
  77.     MODULE4SIZE   = 4932518
  78.     MODULE5SIZE   = 4932518
  79.     MODULE6SIZE   = 4932514
  80.     MODULE7SIZE   = 4932495
  81.     MODULE8SIZE   = 4931236
  82.  
  83.  
  84.     SetBitmap CUIDLL$, LOGO
  85.     SetTitle "Power Rangers Setup"
  86.  
  87.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  88.     IF szInf$ = "" THEN
  89.     szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  90.     END IF
  91.     ReadInfFile szInf$
  92.  
  93. '$IFDEF DEBUG
  94.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  95.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  96.     IF IsDriveValid(WinDrive$) = 0 THEN
  97.     i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  98.     GOTO QUIT
  99.     END IF
  100. '$ENDIF ''DEBUG
  101.  
  102.  
  103. WELCOME:
  104.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  105.     IF sz$ = "CONTINUE" THEN
  106.     UIPop 1
  107.     ELSE
  108.     GOSUB ASKQUIT
  109.     GOTO WELCOME
  110.     END IF
  111.  
  112. '    GOTO DOINSTALL
  113. GOTO GETPATH
  114.  
  115.  
  116. GETPATH:
  117.     DEST$ = GetIniKeyString (GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Directory")
  118.     IF DEST$ = "" THEN
  119.        DEST$ = "C:\SABAN"
  120.     END IF
  121.  
  122.     SetSymbolValue "EditTextIn", DEST$
  123.     SetSymbolValue "EditFocus", "END"
  124. GETPATHL1:
  125.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  126.     DEST$ = GetSymbolValue("EditTextOut")
  127.  
  128.     IF sz$ = "CONTINUE" THEN
  129.     IF IsDirWritable(DEST$) = 0 THEN
  130.         GOSUB BADPATH
  131.         GOTO GETPATHL1
  132.     END IF
  133.     UIPop 1
  134.     CreateIniKeyValue GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Directory", DEST$, cmoOverwrite
  135.     ELSEIF sz$ = "REACTIVATE" THEN
  136.     GOTO GETPATHL1
  137.     ELSEIF sz$ = "BACK" THEN
  138.     UIPop 1
  139.     GOTO WELCOME
  140.     ELSE
  141.     GOSUB ASKQUIT
  142.     GOTO GETPATH
  143.     END IF
  144.  
  145. GETMODULES:
  146.     OLDMODULE1$ = GetIniKeyString (GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module1")
  147.     OLDMODULE2$ = GetIniKeyString (GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module2")
  148.     OLDMODULE3$ = GetIniKeyString (GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module3")
  149.     OLDMODULE4$ = GetIniKeyString (GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module4")
  150.     OLDMODULE5$ = GetIniKeyString (GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module5")
  151.     OLDMODULE6$ = GetIniKeyString (GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module6")
  152.     OLDMODULE7$ = GetIniKeyString (GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module7")
  153.     OLDMODULE8$ = GetIniKeyString (GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module8")
  154.  
  155.     IF OLDMODULE1$ = "" THEN
  156.         OLDMODULE1$ = "OFF"
  157.     END IF
  158.  
  159.     IF OLDMODULE2$ = "" THEN
  160.         OLDMODULE2$ = "OFF"
  161.     END IF
  162.  
  163.     IF OLDMODULE3$ = "" THEN
  164.         OLDMODULE3$ = "OFF"
  165.     END IF
  166.  
  167.     IF OLDMODULE4$ = "" THEN
  168.         OLDMODULE4$ = "OFF"
  169.     END IF
  170.  
  171.     IF OLDMODULE5$ = "" THEN
  172.         OLDMODULE5$ = "OFF"
  173.     END IF
  174.  
  175.     IF OLDMODULE6$ = "" THEN
  176.         OLDMODULE6$ = "OFF"
  177.     END IF
  178.  
  179.     IF OLDMODULE7$ = "" THEN
  180.         OLDMODULE7$ = "OFF"
  181.     END IF
  182.  
  183.     IF OLDMODULE8$ = "" THEN
  184.         OLDMODULE8$ = "OFF"
  185.     END IF
  186.  
  187.  
  188. GETMODULES1:
  189.     CHECKSTATES$ = "CheckItemsIn"
  190.  
  191.     IF OLDMODULE1$ = "ON" THEN
  192.        AddListItem CHECKSTATES$, "ON"
  193.     ELSE
  194.        AddListItem CHECKSTATES$, "OFF"
  195.     END IF
  196.  
  197.     IF OLDMODULE2$ = "ON" THEN
  198.        AddListItem CHECKSTATES$, "ON"
  199.     ELSE
  200.        AddListItem CHECKSTATES$, "OFF"
  201.     END IF
  202.  
  203.     IF OLDMODULE3$ = "ON" THEN
  204.        AddListItem CHECKSTATES$, "ON"
  205.     ELSE
  206.        AddListItem CHECKSTATES$, "OFF"
  207.     END IF
  208.  
  209.     IF OLDMODULE4$ = "ON" THEN
  210.        AddListItem CHECKSTATES$, "ON"
  211.     ELSE
  212.        AddListItem CHECKSTATES$, "OFF"
  213.     END IF
  214.  
  215.     IF OLDMODULE5$ = "ON" THEN
  216.        AddListItem CHECKSTATES$, "ON"
  217.     ELSE
  218.        AddListItem CHECKSTATES$, "OFF"
  219.     END IF
  220.  
  221.     IF OLDMODULE6$ = "ON" THEN
  222.        AddListItem CHECKSTATES$, "ON"
  223.     ELSE
  224.        AddListItem CHECKSTATES$, "OFF"
  225.     END IF
  226.  
  227.     IF OLDMODULE7$ = "ON" THEN
  228.        AddListItem CHECKSTATES$, "ON"
  229.     ELSE
  230.        AddListItem CHECKSTATES$, "OFF"
  231.     END IF
  232.  
  233.     IF OLDMODULE8$ = "ON" THEN
  234.        AddListItem CHECKSTATES$, "ON"
  235.     ELSE
  236.        AddListItem CHECKSTATES$, "OFF"
  237.     END IF
  238.  
  239.  
  240.     sz$ = UIStartDlg(CUIDLL$, MODULES, "FCheckDlgProc", APPHELP, HELPPROC$)
  241.  
  242.     IF sz$ = "CONTINUE" THEN
  243.     UIPop 1
  244.     ELSEIF sz$ = "REACTIVATE" THEN
  245.     GOTO GETPATHL1
  246.     ELSEIF sz$ = "BACK" THEN
  247.     UIPop 1
  248.     GOTO GETPATH
  249.     ELSE
  250.     GOSUB ASKQUIT
  251.     GOTO GETMODULES
  252.     END IF
  253.  
  254.     CHECKSTATES$ = "CheckItemsOut"
  255.     MODULE1$ = GetListItem(CHECKSTATES$, 1)
  256.     CreateIniKeyValue GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module1", MODULE1$, cmoOverwrite
  257.     MODULE2$ = GetListItem(CHECKSTATES$, 2)
  258.     CreateIniKeyValue GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module2", MODULE2$, cmoOverwrite
  259.     MODULE3$ = GetListItem(CHECKSTATES$, 3)
  260.     CreateIniKeyValue GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module3", MODULE3$, cmoOverwrite
  261.     MODULE4$ = GetListItem(CHECKSTATES$, 4)
  262.     CreateIniKeyValue GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module4", MODULE4$, cmoOverwrite
  263.     MODULE5$ = GetListItem(CHECKSTATES$, 5)
  264.     CreateIniKeyValue GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module5", MODULE5$, cmoOverwrite
  265.     MODULE6$ = GetListItem(CHECKSTATES$, 6)
  266.     CreateIniKeyValue GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module6", MODULE6$, cmoOverwrite
  267.     MODULE7$ = GetListItem(CHECKSTATES$, 7)
  268.     CreateIniKeyValue GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module7", MODULE7$, cmoOverwrite
  269.     MODULE8$ = GetListItem(CHECKSTATES$, 8)
  270.     CreateIniKeyValue GetWindowsDir + "CONTROL.INI", "ScreenSaver.Power Rangers", "Module8", MODULE8$, cmoOverwrite
  271.  
  272.     TotalBytes = 0
  273.     bSomeWereChecked = 0
  274.     bSomeAreChecked = 0
  275.  
  276.  
  277.     ' First delete the modules which are no longer selected
  278.     IF OLDMODULE1$ <> "OFF" AND MODULE1$ = "OFF"  THEN
  279.        DeleteFiles(1)
  280.        bSomeWereChecked = 1
  281.     ELSEIF OLDMODULE1$ = "OFF" AND MODULE1$ = "ON" THEN
  282.        TotalBytes = 5240258
  283.        bSomeAreChecked = 1
  284.     END IF
  285.  
  286.     IF OLDMODULE2$ <> "OFF" AND MODULE2$ = "OFF"  THEN
  287.        DeleteFiles(2)
  288.        bSomeWereChecked = 1        
  289.     ELSEIF OLDMODULE2$ = "OFF" AND MODULE2$ = "ON" THEN
  290.        TotalBytes = TotalBytes + 5240794
  291.        bSomeAreChecked = 1
  292.     END IF
  293.  
  294.     IF OLDMODULE3$ <> "OFF" AND MODULE3$ = "OFF"  THEN
  295.        DeleteFiles(3)
  296.        bSomeWereChecked = 1        
  297.     ELSEIF OLDMODULE3$ = "OFF" AND MODULE3$ = "ON" THEN
  298.        TotalBytes = TotalBytes + 4978546
  299.        bSomeAreChecked = 1
  300.     END IF
  301.  
  302.     IF OLDMODULE4$ <> "OFF" AND MODULE4$ = "OFF"  THEN
  303.        DeleteFiles(4)
  304.        bSomeWereChecked = 1        
  305.     ELSEIF OLDMODULE4$ = "OFF" AND MODULE4$ = "ON" THEN
  306.        TotalBytes = TotalBytes + 4932518
  307.        bSomeAreChecked = 1
  308.     END IF
  309.  
  310.     IF OLDMODULE5$ <> "OFF" AND MODULE5$ = "OFF"  THEN
  311.        DeleteFiles(5)
  312.        bSomeWereChecked = 1        
  313.     ELSEIF OLDMODULE5$ = "OFF" AND MODULE5$ = "ON" THEN
  314.        TotalBytes = TotalBytes + 4932518
  315.        bSomeAreChecked = 1
  316.     END IF
  317.  
  318.     IF OLDMODULE6$ <> "OFF" AND MODULE6$ = "OFF"  THEN
  319.        DeleteFiles(6)
  320.        bSomeWereChecked = 1        
  321.     ELSEIF OLDMODULE6$ = "OFF" AND MODULE6$ = "ON" THEN
  322.        TotalBytes = TotalBytes + 4932514
  323.        bSomeAreChecked = 1
  324.     END IF
  325.  
  326.     IF OLDMODULE7$ <> "OFF" AND MODULE7$ = "OFF"  THEN
  327.        DeleteFiles(7)
  328.        bSomeWereChecked = 1        
  329.     ELSEIF OLDMODULE7$ = "OFF" AND MODULE7$ = "ON" THEN
  330.        TotalBytes = TotalBytes + 4932495
  331.        bSomeAreChecked = 1
  332.     END IF
  333.  
  334.     IF OLDMODULE8$ <> "OFF" AND MODULE8$ = "OFF"  THEN
  335.        DeleteFiles(8)
  336.        bSomeWereChecked = 1        
  337.     ELSEIF OLDMODULE8$ = "OFF" AND MODULE8$ = "ON" THEN
  338.        TotalBytes = TotalBytes + 4931236
  339.        bSomeAreChecked = 1
  340.     END IF
  341.  
  342.     IF (bSomeWereChecked = 1 AND bSomeAreChecked = 0) THEN
  343.        Msg$ = "All files for the Mighty Morphin Power Rangers Screen Saver "
  344.        Msg$ = Msg$ + "will be removed from your hard drive."
  345.        i% = DoMsgBox(Msg$, "Installing...", MB_OK)    
  346.        RemoveFile GetWindowsDir() + "default.ssi", cmoForce                    
  347.        RemoveFile GetWindowsDir() + "scrscene.scr", cmoForce          
  348. '       RemoveFile DEST$, cmoForce          ' Does NOT work
  349. '       RemoveDir DEST$, cmoNone        ' Does NOT work
  350.        GOTO QUIT
  351.     ELSEIF bSomeAreChecked = 0 THEN
  352.        GOTO QUIT
  353.     END IF
  354.      
  355.  
  356.  
  357.     FreeSpace = GetFreeSpaceForDrive(DEST$)
  358.     IF TotalBytes > FreeSpace THEN
  359.     i% = DoMsgBox("You do not have enough memory on your harddrive. Please reselect the modules", "Out of Disk Space", MB_OK)
  360.         OLDMODULE1$ = MODULE1$
  361.         OLDMODULE2$ = MODULE2$
  362.         OLDMODULE3$ = MODULE3$
  363.         OLDMODULE4$ = MODULE4$
  364.         OLDMODULE5$ = MODULE5$
  365.         OLDMODULE6$ = MODULE6$
  366.         OLDMODULE7$ = MODULE7$
  367.         OLDMODULE8$ = MODULE8$
  368.     SetSymbolValue  CHECKSTATES$ , ""
  369.  
  370.         GOTO GETMODULES1
  371.     END IF
  372.  
  373.  
  374. DOINSTALL:
  375.     Install
  376.  
  377.  
  378. QUIT:
  379.     ON ERROR GOTO ERRQUIT
  380.  
  381.     IF ERR = 0 THEN
  382.     dlg% = EXITSUCCESS
  383.     ELSEIF ERR = STFQUIT THEN
  384.     dlg% = EXITQUIT
  385.     ELSE
  386.     dlg% = EXITFAILURE
  387.     END IF
  388. QUITL1:
  389.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  390.     IF sz$ = "REACTIVATE" THEN
  391.     GOTO QUITL1
  392.     END IF
  393.     UIPop 1
  394.  
  395.     END
  396.  
  397. ERRQUIT:
  398.     i% = DoMsgBox("Setup sources were corrupted. Call product support.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  399.     END
  400.  
  401.  
  402.  
  403. BADPATH:
  404.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  405.     IF sz$ = "REACTIVATE" THEN
  406.     GOTO BADPATH
  407.     END IF
  408.     UIPop 1
  409.     RETURN
  410.  
  411.  
  412.  
  413. ASKQUIT:
  414.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  415.  
  416.     IF sz$ = "EXIT" THEN
  417.     UIPopAll
  418.     ERROR STFQUIT
  419.     ELSEIF sz$ = "REACTIVATE" THEN
  420.     GOTO ASKQUIT
  421.     ELSE
  422.     UIPop 1
  423.     END IF
  424.     RETURN
  425.  
  426.  
  427.  
  428. '**
  429. '** Purpose:
  430. '**     Builds the copy list and performs all installation operations.
  431. '** Arguments:
  432. '**     none.
  433. '** Returns:
  434. '**     none.
  435. '*************************************************************************
  436. SUB Install STATIC
  437.  
  438.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  439.     WINDIR$ = GetWindowsDir
  440.  
  441.     ' Create the Destination Diretctory
  442.     CreateDir DEST$, cmoNone
  443.  
  444. ''    OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  445. ''    WriteToLogFile ""
  446. ''    WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  447. ''    WriteToLogFile "  User chose option: '" + OPTCUR$ + "'"
  448. ''    WriteToLogFile ""
  449. ''    WriteToLogFile "May have had to create the directory: " + DEST$
  450. ''    WriteToLogFile ""
  451.  
  452.     src$ = MakePath(SrcDir$,"IMAGES")
  453.     ini$ = MakePath(WINDIR$,"CONTROL.INI")
  454.  
  455.     AddSectionFilesToCopyList "Files", SrcDir$, WINDIR$
  456.  
  457.     '
  458.     ' Now lets copy the files over that we need
  459.     '
  460.     IF OLDMODULE1$ <> "ON" AND MODULE1$ = "ON"  THEN
  461.        AddSectionFilesToCopyList "Module1", Src$, DEST$
  462.     END IF
  463.  
  464.     IF OLDMODULE2$ <> "ON" AND MODULE2$ = "ON"  THEN
  465.        AddSectionFilesToCopyList "Module2", Src$, DEST$
  466.     END IF
  467.  
  468.     IF OLDMODULE3$ <> "ON" AND MODULE3$ = "ON"  THEN
  469.        AddSectionFilesToCopyList "Module3", Src$, DEST$
  470.     END IF
  471.  
  472.     IF OLDMODULE4$ <> "ON" AND MODULE4$ = "ON"  THEN
  473.        AddSectionFilesToCopyList "Module4", Src$, DEST$
  474.     END IF
  475.  
  476.     IF OLDMODULE5$ <> "ON" AND MODULE5$ = "ON"  THEN
  477.        AddSectionFilesToCopyList "Module5", Src$, DEST$
  478.     END IF
  479.  
  480.     IF OLDMODULE6$ <> "ON" AND MODULE6$ = "ON"  THEN
  481.        AddSectionFilesToCopyList "Module6", Src$, DEST$
  482.     END IF
  483.  
  484.     IF OLDMODULE7$ <> "ON" AND MODULE7$ = "ON"  THEN
  485.        AddSectionFilesToCopyList "Module7", Src$, DEST$
  486.     END IF
  487.  
  488.     IF OLDMODULE8$ <> "ON" AND MODULE8$ = "ON"  THEN
  489.        AddSectionFilesToCopyList "Module8", Src$, DEST$
  490.     END IF
  491.  
  492.  
  493.     CopyFilesInCopyList
  494.  
  495.     CreateIniKeyValue ini$, "ScreenSaver.Power Rangers", "Directory", DEST$ , cmoNone
  496.     CreateIniKeyValue ini$, "ScreenSaver.Power Rangers", "Speed", "10", cmoNone
  497.     CreateIniKeyValue ini$, "ScreenSaver.Power Rangers", "Pause", "2", cmoNone
  498.     CreateIniKeyValue ini$, "ScreenSaver.Power Rangers", "PWProtected", "0", cmoNone
  499.  
  500.     ini$ = MakePath(WINDIR$,"SYSTEM.INI")
  501.     CreateIniKeyValue ini$, "boot", "SCRNSAVE.EXE", MakePath(WINDIR$,"SCRSCENE.SCR"), cmoNone
  502.  
  503. ''    CloseLogFile
  504.  
  505. END SUB
  506.  
  507.  
  508.  
  509. '**
  510. '** Purpose:
  511. '**     Appends a file name to the end of a directory path,
  512. '**     inserting a backslash character as needed.
  513. '** Arguments:
  514. '**     szDir$  - full directory path (with optional ending "\")
  515. '**     szFile$ - filename to append to directory
  516. '** Returns:
  517. '**     Resulting fully qualified path name.
  518. '*************************************************************************
  519. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  520.     IF szDir$ = "" THEN
  521.     MakePath = szFile$
  522.     ELSEIF szFile$ = "" THEN
  523.     MakePath = szDir$
  524.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  525.     MakePath = szDir$ + szFile$
  526.     ELSE
  527.     MakePath = szDir$ + "\" + szFile$
  528.     END IF
  529. END FUNCTION
  530.  
  531. SUB DeleteFiles (Module%) STATIC 
  532.     '
  533.     ' Deletes the files associated with a certain module
  534.     '
  535.     IF Module% = 1 THEN
  536.       FileName$ = MakePath(DEST$, "1.SSI")
  537.       RemoveFile FileName$, cmoForce
  538.       FileName$ = MakePath(DEST$, "9.SSI")
  539.       RemoveFile FileName$, cmoForce
  540.       FileName$ = MakePath(DEST$, "17.SSI")
  541.       RemoveFile FileName$, cmoForce
  542.       FileName$ = MakePath(DEST$, "25.SSI")
  543.       RemoveFile FileName$, cmoForce
  544.       FileName$ = MakePath(DEST$, "33.SSI")
  545.       RemoveFile FileName$, cmoForce
  546.       FileName$ = MakePath(DEST$, "41.SSI")
  547.       RemoveFile FileName$, cmoForce
  548.       FileName$ = MakePath(DEST$, "49.SSI")
  549.       RemoveFile FileName$, cmoForce
  550.       FileName$ = MakePath(DEST$, "57.SSI")
  551.       RemoveFile FileName$, cmoForce
  552.       FileName$ = MakePath(DEST$, "65.SSI")
  553.       RemoveFile FileName$, cmoForce
  554.       FileName$ = MakePath(DEST$, "73.SSI")
  555.       RemoveFile FileName$, cmoForce
  556.       FileName$ = MakePath(DEST$, "81.SSI")
  557.       RemoveFile FileName$, cmoForce
  558.       FileName$ = MakePath(DEST$, "89.SSI")
  559.       RemoveFile FileName$, cmoForce
  560.       FileName$ = MakePath(DEST$, "97.SSI")
  561.       RemoveFile FileName$, cmoForce
  562.       FileName$ = MakePath(DEST$, "105.SSI")
  563.       RemoveFile FileName$, cmoForce
  564.       FileName$ = MakePath(DEST$, "113.SSI")
  565.       RemoveFile FileName$, cmoForce
  566.       FileName$ = MakePath(DEST$, "121.SSI")
  567.       RemoveFile FileName$, cmoForce
  568.       FileName$ = MakePath(DEST$, "129.SSI")
  569.       RemoveFile FileName$, cmoForce
  570.       
  571.     ELSEIF Module% = 2 THEN
  572.       FileName$ = MakePath(DEST$, "2.SSI")
  573.       RemoveFile FileName$, cmoForce
  574.       FileName$ = MakePath(DEST$, "10.SSI")
  575.       RemoveFile FileName$, cmoForce
  576.       FileName$ = MakePath(DEST$, "18.SSI")
  577.       RemoveFile FileName$, cmoForce
  578.       FileName$ = MakePath(DEST$, "26.SSI")
  579.       RemoveFile FileName$, cmoForce
  580.       FileName$ = MakePath(DEST$, "34.SSI")
  581.       RemoveFile FileName$, cmoForce
  582.       FileName$ = MakePath(DEST$, "42.SSI")
  583.       RemoveFile FileName$, cmoForce
  584.       FileName$ = MakePath(DEST$, "50.SSI")
  585.       RemoveFile FileName$, cmoForce
  586.       FileName$ = MakePath(DEST$, "58.SSI")
  587.       RemoveFile FileName$, cmoForce
  588.       FileName$ = MakePath(DEST$, "66.SSI")
  589.       RemoveFile FileName$, cmoForce
  590.       FileName$ = MakePath(DEST$, "74.SSI")
  591.       RemoveFile FileName$, cmoForce
  592.       FileName$ = MakePath(DEST$, "82.SSI")
  593.       RemoveFile FileName$, cmoForce
  594.       FileName$ = MakePath(DEST$, "90.SSI")
  595.       RemoveFile FileName$, cmoForce
  596.       FileName$ = MakePath(DEST$, "98.SSI")
  597.       RemoveFile FileName$, cmoForce
  598.       FileName$ = MakePath(DEST$, "106.SSI")
  599.       RemoveFile FileName$, cmoForce
  600.       FileName$ = MakePath(DEST$, "114.SSI")
  601.       RemoveFile FileName$, cmoForce
  602.       FileName$ = MakePath(DEST$, "122.SSI")
  603.       RemoveFile FileName$, cmoForce
  604.       FileName$ = MakePath(DEST$, "130.SSI")
  605.       RemoveFile FileName$, cmoForce
  606.  
  607.     ELSEIF Module% = 3 THEN
  608.       FileName$ = MakePath(DEST$, "3.SSI")
  609.       RemoveFile FileName$, cmoForce
  610.       FileName$ = MakePath(DEST$, "11.SSI")
  611.       RemoveFile FileName$, cmoForce
  612.       FileName$ = MakePath(DEST$, "19.SSI")
  613.       RemoveFile FileName$, cmoForce
  614.       FileName$ = MakePath(DEST$, "27.SSI")
  615.       RemoveFile FileName$, cmoForce
  616.       FileName$ = MakePath(DEST$, "35.SSI")
  617.       RemoveFile FileName$, cmoForce
  618.       FileName$ = MakePath(DEST$, "43.SSI")
  619.       RemoveFile FileName$, cmoForce
  620.       FileName$ = MakePath(DEST$, "51.SSI")
  621.       RemoveFile FileName$, cmoForce
  622.       FileName$ = MakePath(DEST$, "59.SSI")
  623.       RemoveFile FileName$, cmoForce
  624.       FileName$ = MakePath(DEST$, "67.SSI")
  625.       RemoveFile FileName$, cmoForce
  626.       FileName$ = MakePath(DEST$, "75.SSI")
  627.       RemoveFile FileName$, cmoForce
  628.       FileName$ = MakePath(DEST$, "83.SSI")
  629.       RemoveFile FileName$, cmoForce
  630.       FileName$ = MakePath(DEST$, "91.SSI")
  631.       RemoveFile FileName$, cmoForce
  632.       FileName$ = MakePath(DEST$, "99.SSI")
  633.       RemoveFile FileName$, cmoForce
  634.       FileName$ = MakePath(DEST$, "107.SSI")
  635.       RemoveFile FileName$, cmoForce
  636.       FileName$ = MakePath(DEST$, "115.SSI")
  637.       RemoveFile FileName$, cmoForce
  638.       FileName$ = MakePath(DEST$, "123.SSI")
  639.       RemoveFile FileName$, cmoForce
  640.  
  641.     ELSEIF Module% = 4 THEN
  642.       FileName$ = MakePath(DEST$, "4.SSI")
  643.       RemoveFile FileName$, cmoForce
  644.       FileName$ = MakePath(DEST$, "12.SSI")
  645.       RemoveFile FileName$, cmoForce
  646.       FileName$ = MakePath(DEST$, "20.SSI")
  647.       RemoveFile FileName$, cmoForce
  648.       FileName$ = MakePath(DEST$, "28.SSI")
  649.       RemoveFile FileName$, cmoForce
  650.       FileName$ = MakePath(DEST$, "36.SSI")
  651.       RemoveFile FileName$, cmoForce
  652.       FileName$ = MakePath(DEST$, "44.SSI")
  653.       RemoveFile FileName$, cmoForce
  654.       FileName$ = MakePath(DEST$, "52.SSI")
  655.       RemoveFile FileName$, cmoForce
  656.       FileName$ = MakePath(DEST$, "60.SSI")
  657.       RemoveFile FileName$, cmoForce
  658.       FileName$ = MakePath(DEST$, "68.SSI")
  659.       RemoveFile FileName$, cmoForce
  660.       FileName$ = MakePath(DEST$, "76.SSI")
  661.       RemoveFile FileName$, cmoForce
  662.       FileName$ = MakePath(DEST$, "84.SSI")
  663.       RemoveFile FileName$, cmoForce
  664.       FileName$ = MakePath(DEST$, "92.SSI")
  665.       RemoveFile FileName$, cmoForce
  666.       FileName$ = MakePath(DEST$, "100.SSI")
  667.       RemoveFile FileName$, cmoForce
  668.       FileName$ = MakePath(DEST$, "108.SSI")
  669.       RemoveFile FileName$, cmoForce
  670.       FileName$ = MakePath(DEST$, "116.SSI")
  671.       RemoveFile FileName$, cmoForce
  672.       FileName$ = MakePath(DEST$, "124.SSI")
  673.       RemoveFile FileName$, cmoForce
  674.  
  675.     ELSEIF Module% = 5 THEN
  676.       FileName$ = MakePath(DEST$, "5.SSI")
  677.       RemoveFile FileName$, cmoForce
  678.       FileName$ = MakePath(DEST$, "13.SSI")
  679.       RemoveFile FileName$, cmoForce
  680.       FileName$ = MakePath(DEST$, "21.SSI")
  681.       RemoveFile FileName$, cmoForce
  682.       FileName$ = MakePath(DEST$, "29.SSI")
  683.       RemoveFile FileName$, cmoForce
  684.       FileName$ = MakePath(DEST$, "37.SSI")
  685.       RemoveFile FileName$, cmoForce
  686.       FileName$ = MakePath(DEST$, "45.SSI")
  687.       RemoveFile FileName$, cmoForce
  688.       FileName$ = MakePath(DEST$, "53.SSI")
  689.       RemoveFile FileName$, cmoForce
  690.       FileName$ = MakePath(DEST$, "61.SSI")
  691.       RemoveFile FileName$, cmoForce
  692.       FileName$ = MakePath(DEST$, "69.SSI")
  693.       RemoveFile FileName$, cmoForce
  694.       FileName$ = MakePath(DEST$, "77.SSI")
  695.       RemoveFile FileName$, cmoForce
  696.       FileName$ = MakePath(DEST$, "85.SSI")
  697.       RemoveFile FileName$, cmoForce
  698.       FileName$ = MakePath(DEST$, "93.SSI")
  699.       RemoveFile FileName$, cmoForce
  700.       FileName$ = MakePath(DEST$, "101.SSI")
  701.       RemoveFile FileName$, cmoForce
  702.       FileName$ = MakePath(DEST$, "109.SSI")
  703.       RemoveFile FileName$, cmoForce
  704.       FileName$ = MakePath(DEST$, "117.SSI")
  705.       RemoveFile FileName$, cmoForce
  706.       FileName$ = MakePath(DEST$, "125.SSI")
  707.       RemoveFile FileName$, cmoForce
  708.  
  709.     ELSEIF Module% = 6 THEN
  710.       FileName$ = MakePath(DEST$, "6.SSI")
  711.       RemoveFile FileName$, cmoForce
  712.       FileName$ = MakePath(DEST$, "14.SSI")
  713.       RemoveFile FileName$, cmoForce
  714.       FileName$ = MakePath(DEST$, "22.SSI")
  715.       RemoveFile FileName$, cmoForce
  716.       FileName$ = MakePath(DEST$, "30.SSI")
  717.       RemoveFile FileName$, cmoForce
  718.       FileName$ = MakePath(DEST$, "38.SSI")
  719.       RemoveFile FileName$, cmoForce
  720.       FileName$ = MakePath(DEST$, "46.SSI")
  721.       RemoveFile FileName$, cmoForce
  722.       FileName$ = MakePath(DEST$, "54.SSI")
  723.       RemoveFile FileName$, cmoForce
  724.       FileName$ = MakePath(DEST$, "62.SSI")
  725.       RemoveFile FileName$, cmoForce
  726.       FileName$ = MakePath(DEST$, "70.SSI")
  727.       RemoveFile FileName$, cmoForce
  728.       FileName$ = MakePath(DEST$, "78.SSI")
  729.       RemoveFile FileName$, cmoForce
  730.       FileName$ = MakePath(DEST$, "86.SSI")
  731.       RemoveFile FileName$, cmoForce
  732.       FileName$ = MakePath(DEST$, "94.SSI")
  733.       RemoveFile FileName$, cmoForce
  734.       FileName$ = MakePath(DEST$, "102.SSI")
  735.       RemoveFile FileName$, cmoForce
  736.       FileName$ = MakePath(DEST$, "110.SSI")
  737.       RemoveFile FileName$, cmoForce
  738.       FileName$ = MakePath(DEST$, "118.SSI")
  739.       RemoveFile FileName$, cmoForce
  740.       FileName$ = MakePath(DEST$, "126.SSI")
  741.       RemoveFile FileName$, cmoForce
  742.  
  743.     ELSEIF Module% = 7 THEN
  744.       FileName$ = MakePath(DEST$, "7.SSI")
  745.       RemoveFile FileName$, cmoForce
  746.       FileName$ = MakePath(DEST$, "15.SSI")
  747.       RemoveFile FileName$, cmoForce
  748.       FileName$ = MakePath(DEST$, "23.SSI")
  749.       RemoveFile FileName$, cmoForce
  750.       FileName$ = MakePath(DEST$, "31.SSI")
  751.       RemoveFile FileName$, cmoForce
  752.       FileName$ = MakePath(DEST$, "39.SSI")
  753.       RemoveFile FileName$, cmoForce
  754.       FileName$ = MakePath(DEST$, "47.SSI")
  755.       RemoveFile FileName$, cmoForce
  756.       FileName$ = MakePath(DEST$, "55.SSI")
  757.       RemoveFile FileName$, cmoForce
  758.       FileName$ = MakePath(DEST$, "63.SSI")
  759.       RemoveFile FileName$, cmoForce
  760.       FileName$ = MakePath(DEST$, "71.SSI")
  761.       RemoveFile FileName$, cmoForce
  762.       FileName$ = MakePath(DEST$, "79.SSI")
  763.       RemoveFile FileName$, cmoForce
  764.       FileName$ = MakePath(DEST$, "87.SSI")
  765.       RemoveFile FileName$, cmoForce
  766.       FileName$ = MakePath(DEST$, "95.SSI")
  767.       RemoveFile FileName$, cmoForce
  768.       FileName$ = MakePath(DEST$, "103.SSI")
  769.       RemoveFile FileName$, cmoForce
  770.       FileName$ = MakePath(DEST$, "111.SSI")
  771.       RemoveFile FileName$, cmoForce
  772.       FileName$ = MakePath(DEST$, "119.SSI")
  773.       RemoveFile FileName$, cmoForce
  774.       FileName$ = MakePath(DEST$, "127.SSI")
  775.       RemoveFile FileName$, cmoForce
  776.  
  777.     ELSEIF Module% = 8 THEN
  778.       FileName$ = MakePath(DEST$, "8.SSI")
  779.       RemoveFile FileName$, cmoForce
  780.       FileName$ = MakePath(DEST$, "16.SSI")
  781.       RemoveFile FileName$, cmoForce
  782.       FileName$ = MakePath(DEST$, "24.SSI")
  783.       RemoveFile FileName$, cmoForce
  784.       FileName$ = MakePath(DEST$, "32.SSI")
  785.       RemoveFile FileName$, cmoForce
  786.       FileName$ = MakePath(DEST$, "40.SSI")
  787.       RemoveFile FileName$, cmoForce
  788.       FileName$ = MakePath(DEST$, "48.SSI")
  789.       RemoveFile FileName$, cmoForce
  790.       FileName$ = MakePath(DEST$, "56.SSI")
  791.       RemoveFile FileName$, cmoForce
  792.       FileName$ = MakePath(DEST$, "64.SSI")
  793.       RemoveFile FileName$, cmoForce
  794.       FileName$ = MakePath(DEST$, "72.SSI")
  795.       RemoveFile FileName$, cmoForce
  796.       FileName$ = MakePath(DEST$, "80.SSI")
  797.       RemoveFile FileName$, cmoForce
  798.       FileName$ = MakePath(DEST$, "88.SSI")
  799.       RemoveFile FileName$, cmoForce
  800.       FileName$ = MakePath(DEST$, "96.SSI")
  801.       RemoveFile FileName$, cmoForce
  802.       FileName$ = MakePath(DEST$, "104.SSI")
  803.       RemoveFile FileName$, cmoForce
  804.       FileName$ = MakePath(DEST$, "112.SSI")
  805.       RemoveFile FileName$, cmoForce
  806.       FileName$ = MakePath(DEST$, "120.SSI")
  807.       RemoveFile FileName$, cmoForce
  808.       FileName$ = MakePath(DEST$, "128.SSI")
  809.       RemoveFile FileName$, cmoForce
  810.  
  811.     END IF
  812. END SUB
  813.